home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.02 Feb 91 / 4D Graphics Source / Text.p < prev    next >
Encoding:
Text File  |  1989-05-31  |  604 b   |  32 lines  |  [TEXT/MPS ]
  1. Unit Text;
  2.  
  3. INTERFACE
  4.     USES    
  5.          Memtypes,Quickdraw,OSIntf,Toolintf,packintf;
  6.         
  7.     Procedure TextSet(var font,point,StyleNum,mode: Integer);
  8.     
  9. IMPLEMENTATION
  10.     Procedure TextSet(var font,point,StyleNum,mode: Integer);
  11.     
  12.     begin
  13.         if (font>0) then
  14.             TextFont(font)
  15.         else
  16.             TextFont(0);
  17.         if (point>0) and (point<128) then
  18.             TextSize(point)
  19.         else
  20.             TextSize(12);
  21.         if (mode>7) and (mode<16) then
  22.             mode:=mode-8;
  23.         if (mode>=0) and (mode<8) then
  24.             TextMode(mode)
  25.         else
  26.             TextMode(0);
  27.         if (StyleNum>0) and (StyleNum<128) then
  28.             TextFace(Style(StyleNum))
  29.         else
  30.             TextFace([]);
  31.     end; {procedure}
  32. END.